unit cadBase;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls, ActnList, frmBase;

type

  { TfrmBaseCadastro }

  TCadBase = class(TfrmBase)
    actExcluir: TAction;
    actLocalizar: TAction;
    actSalvar: TAction;
    actNovo: TAction;
    actions: TActionList;
    lblTitulo1: TLabel;
    pnlConteudo: TPanel;
    tbrData: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
  public

  end; 

var
  _cadBase: TCadBase;

implementation

{ TCadBase }

procedure TCadBase.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  CloseAction := caFree;
end;

procedure TCadBase.FormCreate(Sender: TObject);
begin

end;

initialization
  {$I cadBase.lrs}

end.

